Bonjour
Essayez ceci
Sub test()
Dim i As Byte
Dim rep As Integer
Dim Existe as boolean
For i = 1 To Sheets.Count
If Sheets(i).Name = Sheets("Feuil1").Range("A1") Then Existe = 1:Exit For
Next i
If Existe = 0 Then
rep = MsgBox("La feuille d'import n'est pas présente dans ce classeur, souhaitez-vous l'importer ? ", vbYesNo + vbDefaultButton2)
If rep = vbYes Then
Import:
End If
End If
End Sub
Voir ce que vous exactement à la ligne Import
Vous êtes sous MAC je pense
Cordialement