Private Sub CommandButton2_Click()
With [Tableau1] 'tableau structuré
With .Cells(1).EntireColumn.Find("", .Cells(0, 1), xlValues) '1ère cellule vide
.Value = ComboBox1
.Offset(, 1) = ComboBox2
.Offset(, 2) = ComboBox3
End With
End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
End Sub