Sub ctrl_UPS() 'Contrôle de la version
col = 2
For Each cel In Sheets(DATA).Range("AX2:AX" & Sheets(DATA).Range("AX65536").End(xlUp).Row)
If cel.Text <> "10.05" Then
Sheets(CONTROLE).Cells(18, col) = cel.Address(REF_ABS, REF_ABS)
col = col + 1
End If
Next cel
Call Supression_retour_ligne
End Sub
Sub Supression_retour_ligne()
Dim c As Range
For Each c In Sheets(DATA).Range("A1:CL" & Range("A65536").End(xlUp).Row)
c.Value = Replace(c.Value, vbLf, " ")
Next c
End Sub