Sub Macro1()
Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
Sub Macro7()
NumCol = CInt(ActiveCell.Column)
Columns(NumCol).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
Sub Macro1()
Dim cellulevide As Range, i As Long
For i = 1 To 18 Step 3
With Cells(i, "B")
.Value = Rnd
.Offset(1, 0).Formula = "=NOW()"
.ColumnWidth = 17
End With
Next
Set cellulevide = _
Range("B1:B17").SpecialCells(xlCellTypeBlanks)
cellulevide.Interior.ColorIndex = 3
If (MsgBox("Adresses des cellules vides : " & cellulevide.Address(0, 0) & " = ( cellules au fond rouge)", vbOKOnly, "Effacement :Décalage vers le haut") = vbOK) Then
cellulevide.Delete shift:=xlUp
End If
End Sub