Bonjour à everybody
Noon,
Avant l'apéro du Dimanche, Avale ce médicament pour ton mal à l'usf
Private Sub CommandButton1_Click()
Dim lig As Long
Sheets("feuil1").Activate
If Application.CountA(Range("A:A")) = 0 Then
Range("a1") = TextBox1.Value
Range("b1") = TextBox2.Value
Else
lig = Columns(1).Find("", [A1], , , xlByRows).Row
Cells(lig, 1) = TextBox1.Value
Cells(lig, 2) = TextBox2.Value
End If
End Sub
Bon dimanche
Michel