Private Sub CmdAjouter_Click()
Dim WBCible As Workbook
Dim WSCible As Worksheet
Dim nbControle As Integer
Dim NouvelleLigne As Range
Dim MaFeuille As String
If Me.Cont1 = "" Or Me.Cont2 = "" Or Me.Cont3 = "" Or Me.Cont4 = "" Then
MsgBox "Toutes les informations ne sont pas remplies....!", _
vbOKOnly + vbInformation, "VALIDATION"
Else
''''' MaFeuille = ActiveSheet.Name '<<<< pas bon, on ne sait jamais qu'elle est la feuille active...
Set WBCible = ThisWorkbook
Set WSCible = WBCible.Worksheets("Le Nom de ta Feuille Cible")
nbControle = 4
If WBCible.Range("A2") = "" Then
'On se positionne sur la dernière ligne vide de la table de données
Set NouvelleLigne = WBCible.Cells(Rows.Count, 1).End(xlUp)
For x = 1 To nbControle
Cont1 = Format(Cont1, "General Number")
Cont2 = Format(Cont2, "General Number")
Cont4 = Format(Cont4, "General Number")
NouvelleLigne = Me.Controls("Cont" & x).Value
Set NouvelleLigne = NouvelleLigne.Offset(0, 1)
Next x
Else
Set NouvelleLigne = WBCible.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For x = 1 To nbControle
Cont1 = Format(Cont1, "General Number")
Cont2 = Format(Cont2, "General Number")
Cont4 = Format(Cont4, "General Number")
NouvelleLigne = Me.Controls("Cont" & x).Value
Set NouvelleLigne = NouvelleLigne.Offset(0, 1)
Next x
End If
For x = 1 To nbControle
Me.Controls("Cont" & x).Value = ""
Next x
MsgBox "La nouvelle saisie a bien été ajoutée sur la feuille : " _
& WBCible.Name, vbOKOnly + vbInformation, "CONFIRMATION"
End If
End Sub