Sub macroBouton_II()
Dim rng, x As Range
With Application
.ScreenUpdating = False
With ActiveSheet
Set rng = .Range(.Cells(12, "E"), .Cells(Rows.Count, "E").End(3))
End With
Set x = Range("E7")
If Len(x) And .CountA(rng) > 0 Then
If Not IsError(Application.Match(x, rng, 0)) Then
MsgBox "Facture déjà dans le suivi factures", vbCritical, "Erreur"
x = ""
Else
.Run "LikeHell"
End If
End If
End With
End Sub
Sub LikeHell(Optional SeeMe As String = "https://www.youtube.com/watch?v=4Uf_rTLqj0o")
MsgBox "Je suis l'autre macro", 64
End Sub