compteur = 0
ligne = 3
colonne = 3
vide = 0
Sheets("Liste Visites").Select
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Range("A1").Select
num = ActiveCell.Value
If ActiveCell.Offset(0, 2).Range("A1").Value = "IC" Then
Sheets("IC (B)").Copy After:=Sheets(Sheets.Count)
Range("H4:J6").Value = num
ActiveSheet.Shapes("Check Box 43").Select
With Selection
.Value = xlOn
End With
ActiveSheet.Name = "IC" & num