Bonjour Riri et le Forum
En fait Riri l'erreur vient de la ligne en gras dans le code ci dessous (Xldown) ne supporte pas le fait que la ligne de départ soit vide il faut mettre " Cells(cells(65536,1).end(xlup).row+1,1).row à la place et cela devrait fonctionné.
Private Sub Ajouter_Click()
Clé = RetourInfo1.Value
If Clé <> "" Then
Réponse = MsgBox("Ajouter cet enregistrement ?", vbYesNo, "Ajout...")
If Réponse = vbYes Then
Clé = RetourInfo1.Value & "~~~" & RetourInfo2.Value
If Application.WorksheetFunction.CountIf(Range("C:C"), Clé) > 0 Then
MsgBox "Cette clé existe déjà dans la liste... Opération annulée."
Else
Cells(Cells(2, 1).End(xlDown).Row + 1, 1).Activate
EnvoiInfos
RetourInfos
End If
End If
Else
MsgBox "La clé de cet enregistrement n'est pas valide... Opération annulée."
End If
End Sub
Salim