frangy vous êtes mon ange gardien, c'est parfait.
une chose encore SVP je veux quand de clique sur effacer une ligne et que cette ligne est vide un msgBox surgit me disant " il n y a rien à effacer", j'ai fait un essai mais je crois que j'ai loupé quelque chose :
Private Sub CommandButton3_Click()
Dim x As Integer
On Error Resume Next
x = InputBox("No. ligne à supprimer ?")
If IsNumeric(x) Then
Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents
MsgBox ("Opération effectuée avec succès")
If IsNumeric(x) Then
Sheets("REMISE").Range("B" & x & ":f" & x) = ""
MsgBox ("il n'y a rien à supprimer")
End If
End If
End Sub