Private Sub VALIDATION_Click()
'---Positionnement dans la base
[COLOR=red][B]Ligne = Worksheets("PANNEAUX").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1[/B][/COLOR]
'---Transfert Formulaire dans PANNEAUX
Sheets("PANNEAUX").Cells(Ligne, 1) = [COLOR=red][B]Me.LIEUX[/B][/COLOR]
Sheets("PANNEAUX").Cells(Ligne, 2) = Me.FOND
Sheets("PANNEAUX").Cells(Ligne, 3) = Me.ECRITURE
Sheets("PANNEAUX").Cells(Ligne, 4) = Me.LOGO
Sheets("PANNEAUX").Cells(Ligne, 5) = Me.FORME
Sheets("PANNEAUX").Cells(Ligne, 6) = Me.DIMENSION
Sheets("PANNEAUX").Cells(Ligne, 7) = Me.REF
Sheets("PANNEAUX").Cells(Ligne, 8) = Me.ECRITURE_SP
' Trier la liste
Call TrierListe
End Sub