Bonjour,
j'ai un problème avec le code pour supprimer une ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SupprimeClient()
Dim i As Integer
Dim SupprimeLigne As String
 
SupprimeLigne = InputBox("Veuillez taper le numéro du matricule à supprimer", "suppression")
With ThisWorkbook.Sheets("Source")
 
For i = .Range("A" & .Count).End(xlUp).Rows To 2 Step -1
If .Range("A" & i).Value = SupprimeLigne Then
Rows(i).Delete
End If
Next i
End With
 
End Sub
il bug en indiquant cette phrase en jaune "With ThisWorkbook.Sheets("Source")"