Bonjour,
Quelqu'un pourrait-il m'aider à revoir ce code, svp?
Je souhaiterais supprimer une ligne à partir de la ligne 26 jusqu'à la dernière ligne vide.
La recherche du prénom doit se faire à partir de la ligne 26 - Comment dois-je indiquer cela dans ce code ?
Sub Suppression_AyantDroit()
Dim i As Integer
Dim AyantDroit As String
AyantDroit = InputBox("Veuillez entrer le prénom de l'ayant droit à supprimer ?", "Supprimer un ayant droit", "")
With ThisWorkbook.Sheets("Formulaire")
For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("C" & i).Value = AyantDroit Then
Rows(i).Delete
End If
Next i
End With
End Sub