Lien entre cellule, titre onglet et rappel cellule dans chaque onglets

        If Not wsexist Then
          Worksheets("ModeleFournisseur").Copy After:=Worksheets(Worksheets.Count)
          Worksheets(Worksheets.Count).Name = r.Value
        End If

                If Not wsexist Then
                    Worksheets("ModeleFournisseur").Copy After:=Worksheets(Worksheets.Count)
                    With Worksheets(Worksheets.Count)
                        .Name = r
                        .Range("e3") = r
                        .Range("e4") = r.Offset(, 1)
                        .Range("e5") = r.Offset(, 2)
                        .Range("e6") = r.Offset(, 3)
                        .Range("e7") = r.Offset(, 4)
                    End With
                End If