Sub nlle_journée()
Dim i As Byte, nb_lignes As Integer
nb_lignes = WorksheetFunction.CountA(Range("A:A"))
For i = 4 To nb_lignes
If Range("a" & i) Like "*total*" Then Exit For
Range(Cells(i, 4), Cells(i, 17)).ClearContents
Next i
mon_userform.Show
Range("h1").Font.Color = RGB(204, 51, 0)
Selection.NumberFormat = " dddd, dd mmmm, yyyy"
End Sub