If Bat = "A" And .Range("A65536").End(xlUp).Address <> "$A$1" Then
On Error Resume Next
SendKeys "~" 'évite le message de confirmation
ActiveWorkbook.SendMail .Range("A2:A" & .Range("A65536").End(xlUp).Row), "COMMANDE N°" & NumCommande, AccuseReception
If Err > o Then MsgBox "Adresse(s) incorrecte(s)"
On Error GoTo 0
End If