Range("J2").Select
For i = 2 To nblignes
ActiveCell.Value = Range([B]"G" & i[/B]).Value & " Numéro " & Range([B]"C" & i[/B]).Value
ActiveCell.Offset(1, 0).Select
Next i
Salut à tous, pour le fun
en formule
=SI(ET(ESTNUM(G1);ESTNUM(C1));G1&" Numéro " &C1;"")
ou si G1 est du texte
=SI(ET(G1 <>"";ESTNUM(C1));G1&" Numéro " &C1;"")
a recopier vers le bas
en VBA
Sub Test()
With Sheets("Feuil1")
ActiveCell.FormulaLocal = "=SI(ET(G1 <>"""";ESTNUM(C1));G1&"" Numéro "" &C1;"""")"
End With
End Sub