Salut Pascal,
Après essais, en finissant mon code comme tu me l'indiques, si dans la ligne 4, la cellule C n'est pas vide, il sort de la boucle et ne teste pas la ligne 5.
Par contre si la ligne 4 est vide, il inscrit les mêmes données dans les lignes 4 à 19.
As-tu une autre proposition stp.
Merci
j = 4
For j = 4 To 15
If Range("C" & j) = "" Then
Range("C" & j).Select
Range("C" & j).Value = HeureAriveeMoyenne
Range("D" & j).Select
Range("D" & j).Value = DebutPauseMoyenne
Range("E" & j).Select
Range("E" & j).Value = FinPauseMoyenne
Range("F" & j).Select
Range("F" & j).Value = HeureDepartMoyenne
Else
Exit For
End If
Next j