Bonjour à Tous

Mon petit problème du jour est le suivant :
Une feuille = A ( A : D ) avec
Ligne 1 = titre et ligne 2 = cellules de référence
Un USF = Toto
Pb : lorsque je lance l'USF ( inititialize ) je voudrai "deleter" les lignes de A
mais pas la ligne 2
j'ai fait ce code mais il se trouve que je n'arrive pas à fiabiliser le resultat
il faut plusieurs relances pour obtenir le but recherché

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Lig = A.Range("A65535").End(xlUp).Row  'No de la dernière ligne renseignée
With A
   If Lig > 1 Then ' ligne de titre
      For i = 2 To Lig
        If i > 2 Then
          .Range("A" & i, "D" & i).EntireRow.Delete ' delete la ligne autre que celle N°2
        Else
          .Range("A" & i, "D" & i).EntireRow.ClearContents ' Effece le contenu de la ligne N°2
        End If
        Next
     End If
End With
Un petit coup de main serait super sympa
Mille mercis par avance
A++