Gestion variable boucle FOR

Option Explicit  ' oblige à déclarer toutes les variables

Public Sub OK()
Dim IP As Long, n As Long, lifin As Long
Dim ALARME()  ' tableau qu'on dimensionnera au fur et à mesure
Dim E2_ALARME, S2_ALARME, E1_ALARME, S1_ALARME
Dim AL As String
Dim nom_variable, uID   ' variables utilisées dans ta procedure
n = 0
With Sheets("Feuil5")
  lifin = .Range("A" & Rows.Count).End(xlUp).Row
  For IP = 1 To lifin Step 4  ' on saute 4 ligne à chaque tour de boucle
    E2_ALARME = .Cells(IP + 1, 1)
    S2_ALARME = .Cells(IP + 3, 1)
    E1_ALARME = .Cells(IP, 1)
    S1_ALARME = .Cells(IP + 2, 1)
    AL = "ITEM SYMBOL { " & vbCrLf & "NOM= " & nom_variable & vbCrLf _
         & "TRAME=2000000,2ffffff,ffffffff,0" & vbCrLf & "CONTOUR=2ffffff,fffffff7,1" & vbCrLf _
         & "UID=" & Hex(uID) & vbCrLf & "ANIMATION {" & vbCrLf & "@E2=&" & E2_ALARME & vbCrLf _
         & "@S2=&" & S2_ALARME & vbCrLf & "@EI=&" & E1_ALARME & vbCrLf & "@SI=&" _
         & S1_ALARME & vbCrLf & "}" & vbCrLf & "RECT=767,208,783,224" & vbCrLf _
         & "Rotation = 0" & vbCrLf & "}"
    ' redimensionner le tableau ALARME et affecter à sa dernière case la variable AL
    n = n + 1
    ReDim Preserve ALARME(1 To n)
    ALARME(n) = AL
  Next IP
End With
End Sub

Option Explicit ' oblige à déclarer toutes les variables

Public Sub OK()
Dim IP As Long, n As Long, lifin As Long, k As Long
Dim ALARME() ' tableau qu'on dimensionnera au fur et à mesure
             ' et qui contiendra les AL successifs
Dim E2_ALARME, S2_ALARME, E1_ALARME, S1_ALARME
Dim AL As String
Dim nom_variable, uID ' variables utilisées dans ta procedure
n = 0
With Sheets("Ctrl ACCES RESULT ALARME")
  lifin = .Range("A" & Rows.Count).End(xlUp).Row
  For IP = 1 To lifin Step 4 ' on saute 4 ligne à chaque tour de boucle
    E2_ALARME = .Cells(IP + 1, 1)
    S2_ALARME = .Cells(IP + 3, 1)
    E1_ALARME = .Cells(IP, 1)
    S1_ALARME = .Cells(IP + 2, 1)
    AL = "ITEM SYMBOL { " & vbCrLf & "NOM= " & nom_variable & vbCrLf _
         & "TRAME=2000000,2ffffff,ffffffff,0" & vbCrLf & "CONTOUR=2ffffff,fffffff7,1" & vbCrLf _
         & "UID=" & Hex(uID) & vbCrLf & "ANIMATION {" & vbCrLf & "@E2=&" & E2_ALARME & vbCrLf _
         & "@S2=&" & S2_ALARME & vbCrLf & "@EI=&" & E1_ALARME & vbCrLf & "@SI=&" _
         & S1_ALARME & vbCrLf & "}" & vbCrLf & "RECT=767,208,783,224" & vbCrLf _
         & "Rotation = 0" & vbCrLf & "}"
    ' redimensionner le tableau ALARME et affecter à sa dernière case la variable AL
    n = n + 1
    ReDim Preserve ALARME(1 To n)
    ALARME(n) = AL
  Next IP
End With
' le tableau ALARME est rempli avec les n AL
' il ne reste qu'à l'envoyer dans le fichier test
Open "D:\Users\test.txt" For Output As #1
' en tête du fichier test
Print #1, "//EDITEUR DE SYNOPTIQUE - SYNO"
Print #1, "//TIL TECHNOLOGIES (C)"
Print #1, "//VERSION 2.8"
Print #1, "Synoptique {" ' Début du fichier Synoptique
 ' ecriture des n AL du tableau ALARME
For k = 1 To n
  Print #1, ALARME(k)
Next k
' fin du fichier test
Print #1, "CX=600" 'Début déclaration taille du synoptique
Print #1, "CY=400"
Print #1, "TRAME=2000000,2dcdcdc,1,1"
Print #1, "SYMBOL LOCAL=0"
Print #1, "LIBRAIRIE {"
Print #1, "}" 'Fin du fichier Synoptique
Print #1, "// Fin de fichier"
Close #1 'Fermer le fichier
End Sub