Bonjour,
Je souhaiterai étendre ma formule de la colonne T jusqu'à la dernière ligne, sauf que mon code s'arrête sur la 16 ligne.
Sub Choisircritere()
USFWait.Show 0
USFWait.Repaint
'appel de la macro ici:
Application.ScreenUpdating = False 'bloque l'affichage mettre au début
With Sheets("Données")
.Range("T2").FormulaR1C1 = "=VLOOKUP(RC[-8],Initialisation!C[1]:C[2],2,FALSE)"
.Range("T2").AutoFill .Range("T2:T" & Range("A65536").End(xlUp).Row)
End With
ActiveWorkbook.RefreshAll
Calculate
Application.ScreenUpdating = True
Unload USFWait
End Sub
Merci beaucoup de votre aide