Bonjour,
celui-ci ne me sélectionne pas la colonne DN mais la colonne D et la ligne n.
En fonction de ce que vous écrivez, de D n à D m, je suppose
Peut être comme ceci :
Dim n As Integer, a As Integer, b As Integer, m As Integer
n = 1441
m = 1479
a = 39
While a < 56
Range("D" & n & ":D" & m).Replace What:="$M$6", Replacement:="$M$" & a, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
n = n + 41
m = m + 41
a = a + 1
Wend
A voir si cela ne bugue pas sur l'instruction mais de base pour la colonne D selon votre demande -->
Range("D" & n & ":D" & m)
Attention que lorsque vous mettez --> Dim n, a, b, m As Integer, seule la variable m est Integer les autres sont en Variant
Cordialement