Sub MAJREG()
Dim i, j, v, w As Long
Dim Reg, Siret, Plage As String
i = 7
j = 2
Dim Dat, Region As Worksheet
Set Dat = Sheets("Datas")
w = Sheets("Datas").Range("B7:B65536").End(xlDown).Row
For i = 7 To w
With Sheets("Datas")
Reg = .Range("AA" & i).Value
Siret = .Range("D" & i).Value
Plage = ("A" & i & ":" & "AF" & i)
With Sheets(Reg)
'Recherche le nombre de lignes
v = Sheets(Reg).Range("D65536").End(xlUp).Row + 1
x = v
If (.Range("D" & x).Value = Siret) Then
Flag = True
Worksheets("Datas").Range(Plage).Copy
Worksheets(Reg).Range("A" & x).PasteSpecial Paste:=xlPasteValues ' Colle en valeur
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False 'Colle en format
Application.CutCopyMode = False
x = x + 1
' j = j + 1
End If
x = x + 1
Worksheets("Datas").Range(Plage).Copy
Worksheets(Reg).Range("A" & x).PasteSpecial Paste:=xlPasteValues 'Collage valeur
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False 'Collage format
Application.CutCopyMode = False
End With
End With
Fin:
Next i
End Sub