Remplir une colonne via une autre colonne

Bonjour à Tous,

J'ai encore besoin de votre aide en VBA.

Dans mon tableau, j'ai besoin que la colonne Fournisseurs, remplisse les vides de la colonnes Fabricants.

Mais ne remplace pas les cellules déjà remplies de la colonne Fabricants.

Je joins mon fichier.

Merci

Jean.

Bonjour Jean,

à tester,

Sub Remplir_vide()
With Sheets("Recap")
    rw = .Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To rw
        If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i, 2).Value
    Next i
End With
End Sub

Bonjour i20100,

Ça fonctionne très bien. Et je suis surpris de la vitesse d'exécution par rapport

au nombre de ligne dans mon tableau.

Merci Beaucoup du coup de main.

Jean.