Bonjour à tous.

Ci-dessous une boucle permettant à 300 cellules d'avoir les mêmes valeurs que 300 autres présentes sur un autre classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
For j = 1 To 20
	For i = 1 To 15
		If Workbooks("Classeur1.xlsx").Sheets("Feuil1").Cells(1, i+1) <> Workbooks("Classeur2.xlsx").Sheets("Feuil1").Cells(j+1, 1) Then
			Workbooks("Classeur1.xlsx").Sheets("Feuil1").Cells(1, i+1) = Workbooks("Classeur2.xlsx").Sheets("Feuil1").Cells(j+1, 1)
		Else
		Exit For
		End If
	Next
Next
End Sub
Afin de gagner en temps d’exécution, je cherche à éviter la copie des cellules lorsque leurs valeurs sont similaires puis de passer à la suivante et ainsi de suite jusqu'à la fin de la boucle...
Or, ma fonction IF + Exit For stoppe totalement la boucle, comment puis-je faire ?

Merci d'avance et bonne journée à vous.