Private Sub CommandButton3_Click()
ActiveWorkbook.Sheets("Feuil2").Activate
Dim DernLigne As Long
DernLigne = Range("D" & Rows.Count).End(xlUp).Row 'on cherche la dernière cellule non vide
DernLigne=DernLigne+1 'DernLigne+1 est donc la première celulle vide
Range("D" & DernLigne) = txt_Resultat
End Sub