Sub supprimesalarie2()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OA As Worksheet 'déclare la variable OA (Onglet Agents)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim SL As Variant 'déclare la variable SL (Suppression Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim LI As Integer 'déclare la variable LI (Ligne)
Set OS = Worksheets("source") 'définit l'onglet source OS
TV = OS.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
Set OA = Worksheets("agents") 'définit l'onglet OA
ici: 'étiquette
'définit la boîte d'entrée SL
SL = Application.InputBox("Veuillez saisir le numéro du salarié à supprimer", "SUPPRESSION", Type:=1)
If SL = False Then Exit Sub 'si bouton [Annuler], sort de la procédure
If SL < 1 Then 'condition : si SL est négative
MsgBox "Donnée non valide !" 'message
GoTo ici 'va à l'étiquette "ici"
End If 'fin de la condition
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la seconde)
'si la donnée ligne I colonne 1 de TV, est égale à SL (les deux converties en texte), définit la ligne LI, sort de la boucle
If CStr(TV(I, 1) = CStr(SL)) Then LI = I: Exit For
Next I 'prochaine ligne de la boucle
OS.Rows(LI).Delete 'supprime la ligne LI de l'onglet OS
OA.Rows(LI).Delete 'supprime la ligne LI de l'onglet OA
OS.Range("A2").Value = 1 'écrrit 1 en A2 de l'onglet OS
OS.Range("A2").AutoFill Destination:=Range("tbdd[MATRICULE]"), Type:=xlFillSeries 'remplissage automatique par série
OA.Range("A2").Value = 1 'écrrit 1 en A2 de l'onglet OA
OA.Range("A2").AutoFill Destination:=Range("Table5[Column1]"), Type:=xlFillSeries 'remplissage automatique par série
End Sub