Bonjour Terminaseb, h2so4,
un essai par macro
Sub Morse()
Dim T(1 To 4) As Range, N(1 To 4), i As Byte, j As Byte, Lig As Byte
Set T(1) = Range("D3:I12")
Set T(2) = Range("K3:M12")
Set T(3) = Range("O3:V12")
Set T(4) = Range("X3:Y12")
N(1) = Range("A9").Value
N(2) = Range("A12").Value
N(3) = Range("A3").Value
N(4) = Range("A6").Value
For i = 1 To 4
T(i).Interior.Color = 16777215
For j = 1 To Len(N(i))
Lig = Mid(N(i), j, 1) + 1
T(i)(Lig, j).Interior.Color = 0
Next
Next
End Sub
A+