Sub CréerZoneTravail()
Dim Debut As Variant, Fin As Variant
Debut = Application.Match("Début", Feuil1.Range("A:A"), 0)
Fin = Application.Match("Fin", Feuil1.Range("A:A"), 0)
If Not IsError(Debut) And Not IsError(Fin) Then
Application.Names.Add "Zone_de_Travail2", Feuil1.Range("A1").Offset(Debut).Resize(Fin - Debut - 1)
End If
End Sub