Recopie formule = ok mais manque un arret

[Aladin]

Bonjour le forum
J'ai une macro qui me recopie mes formules, et qui fonctionne tres bien, mais je voudrais ajouter cette condition.
Recopie les formules et s' arrété à la premiere ligne vide de la colonne B
Voici la macro
Sub Recopie_Formules()
Sheets("DATA").Select
Application.ScreenUpdating = False
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A102")
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E102")
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F102")
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G102")
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H102")
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I102")
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Merci d' avance pour tout aide
Aladin

 

[Banzai64]

Re : Recopie formule = ok mais manque un arret

Bonjour

Si j'ai bien compris

Option Explicit

Sub Recopie_Formules()
Dim derlig As Long
  Sheets("DATA").Select
  Application.ScreenUpdating = False
  derlig = Range("B65536").End(xlUp).Row
  Range("A2").AutoFill Destination:=Range("A2:A" & derlig)
  Range("E2").AutoFill Destination:=Range("E2:E" & derlig)
  Range("F2").AutoFill Destination:=Range("F2:F" & derlig)
  Range("G2").AutoFill Destination:=Range("G2:G" & derlig)
  Range("H2").AutoFill Destination:=Range("H2:H" & derlig)
  Range("I2").AutoFill Destination:=Range("I2:I" & derlig)
  Application.ScreenUpdating = True
  Range("A2").Select
End Sub

 

[Aladin]

Re : Recopie formule = ok mais manque un arret

Bonjour le forum et Banzai64
Merci d' avoir répondu assez rapidement pour me veir en aide, j' ai fait un test avec la macro modifié et il ne tient pas compte de la premiere cellule vide de la colonne B.
Aladin

 

[Aladin]

Re : Recopie formule = ok mais manque un arret

Bonjour le forum et Banzai64
Je m' excuse, la macro modifié que tu m' as donné fonctionne tres bien. Je m' explique, j' avais un enchainenemt de 3 macros, en supprimant cet enchainement et les lancer séparément la mcor modifié fonctionne.
Merci pour ton Aide
Aladin