Format de ligne dans une boucle depuis la ligne 50

onjour

Tu es sûr de ce code ?

Rows("50:50").Select 
Application.Run "form16" 
Rows("55:55").Select 
Application.Run "form16"  

moi, j'ai un refus de VBA....

et ensuite que veux tu faire ?

DerLigne = Range("a65536").End(xlUp).Row 
Range("a" & DerLigne).Select 
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _ 
False, Transpose:=False 

en général avant un "paste" il y a un "copy....."

dans ta demande précédente pourquoi utiliser un "choose" : voir ma suggestion.

Voila le debut de ma macro
1) je voudrais que le premier formatage soit fonction du derligne et l'integrer et remplacer le Range("A50:A716").Select

et dans la partie

2) avoir une boucle qui integre sur toutes les 5 lignes le form16

'=================
'1)
Application.Run "a_formatage"

DerLigne = Range("a65536").End(xlUp).Row
Range("a" & DerLigne).Select

End Sub
Sub a_formatage()
'===
Range("A50:A716").Select
Selection.RowHeight = 1

'2) ===
Rows("50:50").Select
Application.Run "form16"

Rows("55:55").Select
Application.Run "form16"

qu'est que c'est le "form16" ? :-/

Bonjour

Pas sûr d'avoir compris ta demande....

Option Explicit
'-------------------------------------------
Sub Formater_hauteur_lignes()
Dim DerLigne As Integer, Lig As Integer

Application.ScreenUpdating = False

DerLigne = Range("A65536").End(xlUp).Row
Range("A50:A" & DerLigne).RowHeight = 1
For Lig = 50 To DerLigne
    If Lig Mod 5 = 0 Then Range("A" & Lig).RowHeight = 16
Next
End Sub