bonjour,
si "observations" existe sur la feuille il me met erreur 1004 la methode delete de la classe range a échoué
et s'il ne trouve pas le mot il me met depassement de capacité et il s'arrête sur la ligne
i = i + 1




Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sheets("dotation").Activate
 
i = 1
 
'While cells(i, 1).Value <> "observations"
  While (Trim(LCase(cells(i, 1).Value)) <> "observations")
 ' While (InStr(1, (cells(i, 1).Value), "OBSERVATIONS", vbTextCompare) = 0)
    i = i + 1
Wend
Rows(i & ":" & i + 6).Delete'------->LIgne erreur