Private Sub plan1(ligne As Long, r_un As Long, delai As Long)
'reinitialiser la ligne
'Worksheets("CHECKLIST").Activate
Cells(ligne, 1).Resize(, 20).Interior.Color = xlNone
'tracer plan
Cells(ligne, r_un).Offset(, -delai).Resize(, delai).Interior.Color = 192
End Sub
Sub tracer()
plan1 4, 7, 3
plan1 5, 8, 7
End Sub