Code pour une feuille, utilisez celui-ci pour plusieurs feuilles

[PJ87]

Bonjour le forum,
J’utilise le code suivant pour sélectionner un nom avec un double clic dans ma ListView1.
Le nom est colorié en rouge et est enregistré sur ma feuil4.
J’aimerais maintenant utiliser ce code pour toutes mes feuilles.
Que faut-il que je modifie pour que je puisse utiliser le code pour toutes mes feuilles.
Merci d’avance.
PJ87

Private Sub ListView1_DblClick()
gr = IIf(Equipe_1 = Label57, True, False)
col = IIf(Equipe_1 = Label57, 27, 28)
n = ListView1.SelectedItem.Index
If ListView1.ListItems(n).ListSubItems(13).ForeColor = vbRed Then
ListView1.ListItems(n).ListSubItems(13).ForeColor = -2147483640
Feuil4.Cells(Selection.Row, col) = «  »
MsgBox « nom supprimé »
Else
ListView1.ListItems(n).ListSubItems(13).ForeColor = vbRed
Feuil4.Cells(Selection.Row, col) = ListView1.ListItems(n).ListSubItems(13)
MsgBox "nom sélectionner " & ListView1.ListItems(n).ListSubItems(1)
End If
If gr = True Then
Label101 = n
Else
Label102 = n
End If
End Sub

[PJ87]

Bon ba j’ai trouver la solution.
J’ai chercher pendant pas mal de temps et puis d’un seul je me suis dit, si je supprimais le mot Feuil4.
Maintenant mon code fonctionne avec toutes les feuilles.
Bonne journée au forum.