Next en simultané

Bonjour à tous,

J'ai un code qui me permet d'éliminer le texte qui se trouve entre un "%" et un ".".

Mon problème est que j'aimerais que pour une ligne_Origine=3 le résultat s'inscrive sur la ligne_Destination=3, puis pour une ligne_Origine=4 le résultat s'inscrive sur la ligne_Destination=4 ect... et que pour le moment ce n'est pas ce qui se passe !

Merci beaucoup de votre aide !

J'ai également une autre problématique : j'aimerai que mon code s'exécute jusqu'à la première case vide de la colonne 6 => colonne_Origine (c'est à dire enlever For Ligne_Destination = 3 To 100
For Ligne_Origine = 3 To 100 )

Sub parenth()
Dim Ligne_Origine As Integer, Colonne_Origine As Integer
Dim pos1 As Integer
Dim pos2 As Integer


Dim Ligne_Destination As Integer, Colonne_Destination As Integer
Dim cellule_Destination As String

 
For Ligne_Destination = 3 To 100
For Ligne_Origine = 3 To 100
    Colonne_Destination = 7

        
        Colonne_Origine = 6

    temp = Cells(Ligne_Origine, Colonne_Origine)
    temp = Replace(temp, " .", " 0.")
    pos1 = InStr(temp, "%")
    pos2 = InStr(pos1, temp, ".")
    While pos1 <> 0 And pos2 <> 0
        If pos1 > 1 Then
            tmp = Left(temp, pos1)
        End If
        If pos2 > 0 Then
            tmp = tmp & Mid(temp, pos2 + 1)
        End If
        If pos1 + pos2 = 0 Then tmp = temp
        temp = tmp
        pos1 = InStr(pos1 + 1, temp, "%")
        pos2 = InStr(pos1 + 1, temp, ".")
    Wend
    parenthese = Trim(tmp)
    
            
        Cells(Ligne_Destination, Colonne_Destination) = parenthese



        Next Ligne_Origine

Next Ligne_Destination


End Sub

Merci beaucoup encore une fois ! Ce forum est d'une grande aide lorsqu'on est débutant !