Sub Bouton2_Cliquer()
Dim LD As Byte 'déclare la variable LD (Ligne de Départ)
Dim PL As Range 'déclare la variable PL (PLage)
Dim LD1 As Byte 'déclare la variable LD (Ligne de Départ)
Dim PL1 As Range 'déclare la variable PL (PLage)
' 1er Tableau
LD = Range("G1").Value + 2 'définit la ligne départ
Set PL = Application.Union(Range(Cells(LD, 2), Cells(13, 5)), Range(Cells(LD, 7), Cells(13, 10))) 'définit la palge PL
PL.ClearContents 'efface le contenu de la palge PL
'2 eme tableau
LD1 = Range("G14").Value + 16 'définit la ligne départ
Set PL1 = Application.Union(Range(Cells(LD1, 2), Cells(23, 5))) 'définit la palge PL
PL1.ClearContents 'efface le contenu de la palge PL
End Sub