Sub Visites_prévues()
'
' Visites_prévues Macro
' Macro enregistrée le 23-06-2010 par castex
'
'Supprime colonnes A C et F
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("D
").Select
Selection.Delete Shift:=xlToLeft
'Copie le nom du commercial dans la colonne A sur toutes les lignes jusqu'au prochain nom "non vide"
'ET jusqu'à la dernière date de visite
a = Range("A65536").End(xlUp).Row
a = 1
Do While Cells(a, 1) <> ""
If Cells(a + 1, 1).Value = "" Then
Cells(a + 1, 1) = Cells(a, 1)
End If
a = a + 1
Loop
'Sélectionne les lignes sans visite et les supprime
b = Range("A65536").End(xlUp).Row
b = 2
Columns(b).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub