Private Sub CommandButton1_Click() 'bouton "Action"
Dim dl As Integer 'déclare la varialbe dl (Dernière Ligne)
Dim col As Byte 'déclare la variable col (COLonne)
Dim li As Integer 'déclare la variable li (LIgne)
Dim cel As Range 'déclare la variable cel (CELlule)
For col = 2 To 4 'boucle sur les colonnes 2 à 4
'définit la variable dl
'si la dernière ligne de la colonne est supérieur à dl alors dl est égal à la dernière ligne de la colonne
If Cells(65536, col).End(xlUp).Row > dl Then dl = Cells(65536, col).End(xlUp).Row
Next col 'prochaine colonne de la boucle
For li = 1 To dl 'boucle 1: sur toutes les lignes du tableau
For Each cel In Range(Cells(li, 2), Cells(li, 4)) 'boucle 2 : sur les trois cellules de la ligne
If cel.Value <> "" Then GoTo suite 'si la cellule n'est pas vide va à la ligne suivante via l'étiquette "suite"
Next cel 'prochaine cellule de la boucle 2
Range(Cells(li, 2), Cells(li, 4)).Value = "x" 'remplit les 3 cellules vides de "x"
suite: 'étiquette
Next li 'prochaine ligne de la boucle 1
End Sub