Sub Image84_QuandClic()
Dim Exp As String, Dst As String
Exp = InputBox("Bonjour, veuillez écrire le nom du nouvel expéditeur ne figurant pas dans la liste :")
If Exp = "" Then
MsgBox "Aucun expéditeur saisi, sortie de l'application"
Application.Quit
End If
'ajouter dans la colonne P le nouvel expéditeur Pfinale=Exp
Cells(65536, 16).End(xlUp)(2) = Exp
Dst = InputBox("veuillez préciser le destinataire parmis les quatre choix suivant : SAV, DISQUE, LIVRE, ADMINISTRATION :")
If Dst = "" Then
MsgBox "Aucun destinataire saisi, sortie de l'application"
Application.Quit
End If
If Dst = "SAV" Then
'ajouter dans la colonne U le nouvel expéditeur Ufinal=Exp
Cells(65536, 21).End(xlUp)(2) = Exp
End If
If Dst = "DISQUE" Then
'ajouter dans la colonne V le nouvel expéditeur Vfinal=Exp
Cells(65536, 22).End(xlUp)(2) = Exp
End If
If Dst = "LIVRE" Then
'ajouter dans la colonne W le nouvel expéditeur Wfinal=Exp
Cells(65536, 23).End(xlUp)(2) = Exp
End If
If Dst = "ADMINISTRATION" Then
'ajouter dans la colonne X le nouvel expéditeur Xfinal=Exp
Cells(65536, 24).End(xlUp)(2) = Exp
End If
End Sub