Sub test()
'adapter le nom de la feuille
If ActiveSheet.Name Like "Feuil2" And ActiveCell.Column <> 9 Then
MsgBox "Il faut se postionner sur l'onglet BDD Factures" & Chr(13) & _
"et sur un numéro de facture pour utiliser cette fonction."
[COLOR=blue]End[/COLOR]
[COLOR=blue]' ou [/COLOR]
[COLOR=blue]Exit Sub
[/COLOR]End If
End Sub