Modification mulitple

Bonsoir,

J'ai commencé à vouloir permettre de changer l'id / acronyme d'un enregistrement car me concernant il existe des id et acronyme temporaires

sauf que cela concerne de multiples onglets, dossiers et enregistrements

aussi j'ai commencé et tout se passe assez bien après quelques déconvenues je dois avouer

ceci étant dit j'ai besoin d'assistance

pour une modif unique je procède comme ceci:

'On modifie l'acronyme dans Partners
If IsError(Application.Match(Initial_Acronym, Worksheets("Partners").Columns("C"), 0)) Then

Else:
Match_Partners = Application.Match(Initial_Acronym, Worksheets("Partners").Columns("C"), 0)
Worksheets("Partners").Cells(Match_Partners, 3) = Acronym
End If

sauf que je viens de me rendre compte que dans mes onglets à enregistrement multiples cela ne changeait que la première ligne, normal me direz vous

aussi il me faut modifier le code pour certaines parties

Aussi j'ai tenter de récupérer le code de sélection ci-dessous mais j'aimerais être sur de ce que je fait avant de continuer mais ne sait pas vraiment comment procéder. il me faudrait adapter le code au dessus pour se répéter les 56 cas potentiels...dans cet exemple

j'ai 56 partenaires max en ce moment donc

 For i = 1 To 56 
    With Sheets("Partners")
        ok = False
        Set ici = .Range("C:C").Find(Initial_Acronym, LookIn:=xlValues)
        If Not ici Is Nothing Then
            prem = ici.Address
            Do
                If ici.Offset(0, -1) = (ProjectId & "_" & i) Then ok = True
                If Not ok Then Set ici = .Range("B:B").FindNext(ici)
            Loop While Not ici Is Nothing And ici.Address <> prem And Not ok
        End If
        If ok Then

        Else

        End If
    End With

    Select Case i
        Case 1

       End Select

une petite aide serait grandement appréciable

merci par avance

bonne soirée

personne pour me guider svp?