Merci Xmenpl, ton code mettait un message d'erreur. Malgrè tout je m'en suis inspiré et j'ai pu en croisant d'autres info sur d'autres topic le code suivant qui fonction parfaitement.
Merci encore d'avoir pris le temps[codeDim Ligne As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ligne = ActiveSheet.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nouvelleligne As Long
nouvelleligne = ActiveCell.Row
If UsedRange.Rows.Count > Ligne Then
Cells(nouvelleligne, 2) = "montest"
End If
End Sub][/code]