Sub supp()
Sheets("Lavage").Unprotect
Sheets("Basededonnée").Unprotect
Sheets("Listederoulante").Unprotect
Sheets("Tableau de bord").Unprotect
Dim i As Integer
Dim Editeur As String, Secteur As String
Dim Wsh As Worksheet
Editeur = InputBox("Entrer la référence colonne A que vous voulez supprimer", "Welcome")
'la valeur saisie est transmise à la variable Editeur
For Each Wsh In Worksheets(Array("Lavage", "Basededonnée", "Listederoulante", "Tableau de bord"))
With Wsh.ListObjects(1)
NL = .ListRows.Count
For i = NL To 1 Step -1
If .ListColumns(1).DataBodyRange.Cells(i, 1) = Editeur * 1 Then
If Wsh.Name = "Tableau de bord" Then Secteur = .ListColumns(1).DataBodyRange.Cells(i, 2)
.ListRows(i).Delete
Exit For
End If
Next i
End With
Next Wsh
With Range("Tableau_code_en_service").ListObject
With .ListColumns(Secteur)
For i = .Range.Rows.Count - 1 To 1 Step -1
If .DataBodyRange.Cells(i, 1) = Editeur * 1 Then
.DataBodyRange.Cells(i, 1) = ""
Lig = i
Exit For
End If
Next
End With
'Suppression ligne si vide
If WorksheetFunction.CountA(.DataBodyRange.Rows(Lig).Cells) = 0 Then
.ListRows(i).Delete
End If
End With
End Sub