Sub SectNew()
'SUITE A CHANGEMENT DE CODE D UN ARTICLE
Dim DerLg As Long, DebLg As Long, NomF As String, SectF As Variant
Dim FirstAd As Variant, c As Variant, Tblo As Variant
'Definition du tableau Array
DerLg = Sheets(2).Range("B65000").End(xlUp)(1).Row
ReDim Tblo(2, DerLg)
'Nom à rechercher dans le Tblo (récupération des articles à modifier)
Sheets(1).Activate
With ActiveWorkbook.Sheets(1).Columns("D:D")
Set c = .Find(3, LookIn:=xlValues)
c.Select 'Est-il possible d'affecter la valeur de NomF sans passer par Select et Offset ?
SectF = c.Value
NomF = ActiveCell.Offset(0, -2).Value
End With
'REMPLACEMENT DES CODES
With Tblo
Set c = .Find(NomF, LookIn:=xlValues)
If Not c Is Nothing Then
FirstAd = c.Address
Do
'COMMENT DECALER c à la cellule d'à coté ?
End If
End With
End Sub