Sub Macro1()
Dim NomEquipe As String, NumLigne As Integer
For Each Cell In Range("B2:B18")
NomEquipe = Cell.Value
NumLigne = Cell.Row
ActiveSheet.Shapes.Range(Array("Image 1")).Select
Selection.ShapeRange.Name = NomEquipe
Selection.Name = NomEquipe
Next
End Sub